home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pctchnqs / 1992 / number2 / iswind3.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-09  |  430b  |  22 lines
  1.   function IsWindows3 : Boolean; Assembler;
  2.   asm
  3.     mov     ax,1600h
  4.     int     2Fh
  5.     cmp     al,1
  6.     jbe     @@CheckRealOrStd
  7.     cmp     al,80h
  8.     jae     @@CheckRealOrStd
  9.     mov     al,1
  10.     jmp     @@ExitPoint
  11.   @@CheckRealOrStd:
  12.     mov     ax,4680h
  13.     int     2Fh
  14.     or      ax,ax
  15.     jnz     @@NoWin
  16.     mov     al,1
  17.     jmp     @@ExitPoint
  18.   @@NoWin:
  19.     mov     al,0
  20.   @@ExitPoint:
  21.   end;
  22.